COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(COMMENT BPS 45000. REGPDL 10000. specpdl 3000. array 120.)
C00006 ENDMK
C⊗;
(COMMENT BPS 45000. REGPDL 10000. specpdl 3000. array 120.)
(alloc '(list (10000 10000 nil)))
(PROGN
(SETSYNTAX 35. 2 35.)
(FASLOAD DEMON FAS DSK (AID LSP))
`(,(let))
(FASLOAD SHARPM FAS DSK (MAC LSP))
(FASLOAD SETF FAS DSK (MAC LSP))
(FASLOAD MACAID FAS DSK (MAC LSP))
(FASLOAD MULTL FAS DSK (LSP RPG))
(setq *silence* t)
(FASLOAD HELP FAS DSK (MAC LSP))
(SSTATUS TTYINT 200. '+internal-↑B-break)
(SSTATUS TTYINT 232. '+internal-↑B-break)
(setq em:no-init t)
(fasload emaclsp fas dsk (mac lsp))
(setq backquote-expand-when 'read)

(COND ((STATUS FEATURES NEWIO)
       (CLOSE INFILE)
       (INPUSH -1))
      (T (UCLOSE)))

(gc)(gctwa t)
(sstatus gctime 0)
(SUSPEND '|Save sys multl|)
(setq ibase 10. base 10.)
(APPLY 'CRUNIT (LIST 'DSK (STATUS UDIR))) 
(SETQ *NOPOINT T)
(cond (si:ecalledp
       (setq -em:herald- ())
       (em:mail-interface-initialize)))
(startup 16.))